home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
logolib
/
listtoarray
< prev
next >
Wrap
Text File
|
1995-05-03
|
286b
|
15 lines
to listtoarray :list [:origin 1]
local "array
make "array (array count :list :origin)
listtoarray1 :list :origin
output :array
end
to listtoarray1 :list :index
if emptyp :list [stop]
setitem :index :array first :list
listtoarray1 bf :list :index+1
end
bury [listtoarray listtoarray1]